﻿Imports System.ComponentModel

Public Class KetQuaBUS
    Public Sub LoadCBX(ByVal cbx As ComboBox, ByVal sql As String)
        Dim KetQua_DAO As KetQuaDAO = New KetQuaDAO
        KetQua_DAO.LoadCombobox(cbx, sql)
    End Sub
    Public Sub LoadDGV(ByVal dgv As DataGridView, ByVal sql As String)
        Dim KetQua_DAO As KetQuaDAO = New KetQuaDAO
        KetQua_DAO.LoadGridView(dgv, sql)
    End Sub
    Public Function ThemKetQua(ByVal kqInsert As KetQuaDTO) As Boolean
        Dim KetQua_DAO As KetQuaDAO = New KetQuaDAO
        Return KetQua_DAO.ThemKetQua(kqInsert)
    End Function
    Public Function XoaKetQua(ByVal mhs As String, ByVal mh As String, ByVal hk As String) As Boolean
        Dim KetQua_DAO As KetQuaDAO = New KetQuaDAO
        Return KetQua_DAO.XoaKetQua(mhs, mh, hk)
    End Function
    Public Function SuaKetQua(ByVal kqUpdate As KetQuaDTO) As Boolean
        Dim KetQua_DAO As KetQuaDAO = New KetQuaDAO
        Return KetQua_DAO.SuaKetQua(kqUpdate)
    End Function

    Public Function GetList() As BindingList(Of KetQuaDTO)
        Dim kq_DAO As KetQuaDAO = New KetQuaDAO
        Return kq_DAO.GetList()
    End Function
End Class
